Labels:text | screenshot | font | menu OCR: Our solution to Outside Assignment 5 with TEXT_IO; use TEXT_IO; procedure LEDIT is MAX_LENGTH constant := 80; MAX_LINE NUMBER : constant := 29_999; type TEXT is record LEN : INTEGER range 0 .. MAX_LENGTH := 0; VAL : STRING(1 . . MAX_LENGTH); end record; type LINK; type P is access LINK; type LINK is record NUM : POSITIVE; LINE : TEXT; NEXT : P; end record; HEAD : P := new LINK; TEMP : P; INPUT_FILE, OUTPUT_FILE : FILE_TYPE; INPUT : TEXT; FINISHED : BOOLEAN : = FALSE; LINE_NUM : NATURAL := 10; function STR(T : in TEXT) return STRING is separate; procedure READ_INPUT_FILE is separate; procedure DO_COMMAND is separate; begin PUT ("Input file: "); GET_LINE (INPUT. VAL, INPUT. LEN); READ _INPUT_FILE; PUT ("Output file: "); GET_LINE (INPUT.VAL, INPUT.LEN); CREATE (OUTPUT_FILE, NAME => STR(INPUT) ...
(.png)
